home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Swiftsoft Multimedia Tools / MMTOOL3.EXE / Mmtypes.inc < prev    next >
Encoding:
Text File  |  1998-09-17  |  3.3 KB  |  114 lines
  1. const
  2.     {$IFDEF CBUILDER3} {$EXTERNALSYM DebugCount} {$ENDIF}
  3. {$IFDEF DEBUG}
  4.     DebugCount  = 4096;                { set to any value for debugging }
  5. {$ELSE}
  6.     DebugCount  = 0;
  7. {$ENDIF}
  8.  
  9.     VOLUMEBASE   = 16384;     { 0 = silence, 16384 = 0 dB, 32768 = +6dB }
  10.  
  11.     { missing static colors}
  12.     clMdGray     = TColor($A4A0A0);
  13.     clCream      = TColor($F0FBFF);
  14.     clMoneyGreen = TColor($C0DCC0);
  15.     clSkyBlue    = TColor($F0CAA6);
  16.  
  17.     badDeviceId  = -2;        { deviceID identifiers }
  18.     MapperId     = -1;
  19.  
  20. type
  21. {$IFNDEF WIN32}
  22.     Short           = Smallint;
  23.     UINT            = Word;
  24.     ULONG           = Longint;
  25.     DWORD           = Longint;
  26.     WPARAM          = Word;
  27.     LPARAM          = Longint;
  28.     LRESULT         = Longint;
  29.     MMRESULT        = UINT;              { error return code, 0 means no error }
  30.     TThreadMethod   = procedure of object;
  31. {$ENDIF}
  32.  
  33. {$IFNDEF DELPHI4}
  34.     Int64           = comp;
  35.     MMLARGE_INTEGER = TLargeInteger;
  36.     MM_int64        = Cardinal;
  37. {$ELSE}
  38.     MMLARGE_INTEGER = LARGE_INTEGER;
  39.     MM_int64        = int64;
  40. {$ENDIF}
  41.  
  42.     PLong           = ^Long;
  43.     Long            = Longint;
  44.     PShortint       = ^ShortInt;
  45.     PSmallInt       = ^SmallInt;
  46.     PCardinal       = ^Cardinal;
  47.     PBoolean        = ^Boolean;
  48.  
  49.     PFloat          = ^Float;
  50.     Float           = Single;
  51.  
  52.     PFloatArray     = ^TFloatArray;
  53.     TFloatArray     = array[0..DebugCount] of Float;
  54.  
  55.     PDouble         = ^Double;
  56.  
  57.     PDoubleArray    = ^TDoubleArray;
  58.     TDoubleArray    = array[0..DebugCount] of Double;
  59.  
  60.     PRectArray      = ^TRectArray;
  61.     TRectArray      = array[0..DebugCount] of TRect;
  62.  
  63.     PPointArray     = ^TPointArray;
  64.     TPointArray     = array[0..DebugCount] of TPoint;
  65.  
  66.     PLongArray      = ^TLongArray;
  67.     TLongArray      = array[0..DebugCount] of Longint;
  68.  
  69.     PIntArray       = ^TIntArray;
  70.     TIntArray       = array[0..DebugCount] of Integer;
  71.  
  72.     PCardinalArray  = ^TCardinalArray;
  73.     TCardinalArray  = array[0..DebugCount] of Cardinal;
  74.  
  75.     PWordArray      = ^TWordArray;
  76.     TWordArray      = array[0..DebugCount] of Word;
  77.  
  78.     PSmallArray     = ^TSmallArray;
  79.     TSmallArray     = array[0..DebugCount] of SmallInt;
  80.  
  81.     PByteArray      = ^TByteArray;
  82.     TByteArray      = array[0..DebugCount] of Byte;
  83.  
  84.     PBooleanArray   = ^TBooleanArray;
  85.     TBooleanArray   = array[0..DebugCount] of Boolean;
  86.  
  87.     {$IFDEF WIN32}
  88.     TMMDeviceId     = type integer;
  89.     {$ELSE}
  90.     TMMDeviceId     = -32768..32767;
  91.     {$ENDIF}
  92.  
  93.     TMMBits         = (b8Bit,b16Bit);
  94.     TMMMode         = (mMono,mStereo);
  95.     TMMChannel      = (chBoth,chLeft,chRight);
  96.     TMMSampleRate   = (sr11025,sr22050,sr44100);
  97.     TMMDecayMode    = (dmNone,dmStepUp,dmExponential,dmUniform);
  98.     TMMTimeFormats  = (tfMillisecond, tfByte, tfSample);
  99.     TMMVolumeRange  = 0..VOLUMEBASE;
  100.     TMMEffectVolume = -200..200;
  101.     TMMFeedBack     = -100..100;
  102.     TMMCBMode       = (cmWindow, cmCallback{$IFDEF WIN32},cmThread{$ENDIF});
  103.     TMMFFTWindow    = (fwRectangular,fwHamming,fwHanning,fwBlackman,
  104.                        fwGaussian,fwWelch,fwParzen);
  105.  
  106.  
  107. const
  108.     MaxSmallInt     = $7FFF;
  109.     {$IFDEF DELPHI4}
  110.     MaxInt64        = high(int64);
  111.     {$ELSE}
  112.     MaxInt64        = 9223372036854775807.0;
  113.     {$ENDIF}
  114.